Function DrawerPop () As Integer 
  var = "com1" 
  Open var For Output Access Write As #1 
  Print #1, Chr$(27); "p"; Chr$(48); Chr$(25); Chr$(250); 
  Close #1 
End Function